Group=Simple Deform
Name=n
Init=coord=0;\n?a,X,1,100,20;\n?d,X,-100,100,0;\n?e,_,0,50,10;\ncx=int(cx);\ncy=ys;\na=a/100;\nd=d/100;\ne=e/10;\n\n\n\n
Prog=ym=-ys*(1+a)/2;\ns=((x+xs*d*(y/ys))/(a*(y/ym)+(ys+y)/ys))*e;\nz=(y*2/(2-(1-a)*y/ym))*e;\nR=G=B=0;\nx1=x+xs*d*(y/ys);\nif(abs(z/y)>=2){\ncoord=0;\nz1=int(0.7*s/x1+0.5);\nz2=int(0.7*z/y+0.5);\nT=T(s,z);\nadd(s,z,4);\nadd(s-z1,z,2);\nadd(s+z1,z,2);\nadd(s,z-z2,2);\nadd(s,z+z2,2);\nadd(s-int(z1*0.7),z+int(z2*0.7),1);\nadd(s-int(z1*0.7),z-int(z2*0.7),1);\nadd(s+int(z1*0.7),z-int(z2*0.7),1);\nadd(s+int(z1*0.7),z+int(z2*0.7),1);\nR=R/16;\nG=G/16;\nB=B/16;\n}else{\ncoord=2;\nx=s;\ny=z;\n}\n\n